home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / misc / amag / AM9512_2.lha / Faxen mit Amiga / ARexx / ADM_Fax.rexx next >
OS/2 REXX Batch file  |  1995-10-12  |  1KB  |  31 lines
  1. /*
  2.  * $VER: ADM_Fax.rexx 1.00 (12. Oktober 1995)
  3.  */
  4.  
  5. /**************************************************************
  6.  *  Tragen Sie dieses Skript in das Menü von ADM ein          *
  7.  *  ("Arexx/Arexx-Menüauswahl konfigurieren").                *
  8.  *                                                            *
  9.  *  Wenn Sie den Menüpunkt "ADM_Fax.rexx" auswählen,          *
  10.  *  wird die aktuelle Adresse an AutoDeskFax übergeben.       *
  11.  **************************************************************/
  12.  
  13. options results
  14. adm_port    = address()
  15. ports       = show(p)
  16.  
  17. /****** Überprüfen, ob von ADM aus gestartet  ******/
  18. if (left( adm_port , length( adm_port )-2) ~= "ADM") then do
  19.     say "Dieses Skript muß von ADM gestartet werden!"
  20.     exit 10
  21. end
  22.  
  23. /* Ganzen Datensatz in einem Rutsch lesen (stem-variable) */
  24. GETADDRESS ADM         
  25.  
  26. call AutoDeskFax( adm.lastname,adm.firstname,    /* und an       */
  27.                   ,adm.address1 adm.address2,    /* autodeskfax  */
  28.                   ,adm.postcode adm.city,adm.fax)/* übergeben    */
  29. exit 0
  30.  
  31.